home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / general / credit scroll.amos / credit scroll.amosSourceCode
Encoding:
AMOS Source Code  |  1978-01-12  |  1.4 KB  |  45 lines
  1. '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  2. '  
  3. '                            Smooth Credit Scroller
  4. '  
  5. '                     By W.H.Liu (19-7-91) with AMOS v1.3
  6. '
  7. '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  8. SET_UP_SCREEN
  9. SET_UP_TEXT
  10. Procedure SET_UP_SCREEN
  11.    Screen Open 0,640,285,2,Hires
  12.    Screen Display 0,,35,,
  13.    Palette $0,$FFF
  14.    Hide 
  15. End Proc
  16. Procedure SET_UP_TEXT
  17.    Def Scroll 1,0,0 To 640,285,0,-1
  18.    For I=1 To 24
  19.       Read A$
  20.       If A$="*end*"
  21.          For II=1 To 270
  22.             Wait 2
  23.             Scroll 1
  24.          Next II
  25.       End If 
  26.       If A$<>"*end*"
  27.          Locate 0,34
  28.          Centre A$ : Curs Off 
  29.          For II=1 To 16
  30.             Wait 2
  31.             Scroll 1
  32.          Next II
  33.       End If 
  34.    Next I
  35.    Data "Welcome to...","","Smooth Credit Scroller!","By W.H.Liu",""
  36.    Data "This is just an example of what can be achieved with AMOS"
  37.    Data "Don't forget you can change the font as well!",""
  38.    Data "Happy programming!","","This is similar to the scroller used"
  39.    Data "In the game Double Dragon 2","and it looks good for a game"
  40.    Data "intro!"
  41.    Data "","Why not add some of your own music","and some flashy graphics"
  42.    Data "to make a demo?","","Do what you want with this program"
  43.    Data "and incorporate it into your own programs...","","Adios Amigo!"
  44.    Data "*end*"
  45. End Proc